<%
Dim RepeatFeat__numRows
Dim RepeatFeat__index
RepeatFeat__numRows = 30
RepeatFeat__index = 0
rsFeat_numRows = rsFeat_numRows + RepeatFeat__numRows
%>
<%
set rsNav = Server.CreateObject("ADODB.Recordset")
rsNav.ActiveConnection = MM_directory_STRING
rsNav.Source = "SELECT *,(SELECT COUNT (*) FROM LINKS,priority,pricing WHERE LINKS.CAT_ID = CATS.CAT_ID AND LINK_APPROVED=1 AND paymentAmount = id and PID = priorityid AND LINK_EXPIRED >= GETDATE()) AS LINK_COUNT FROM CATS ORDER BY CAT_NAME ASC"
rsNav.CursorType = 0
rsNav.CursorLocation = 2
rsNav.LockType = 3
rsNav.Open()
rsNav_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsNav_numRows = rsNav_numRows + Repeat1__numRows
%>
|
Categories: |
 |
|
|
<% While ((Repeat1__numRows <> 0) AND (NOT rsNav.EOF))%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsNav.MoveNext()
Wend
%>
|
|
|
Top
Cities: |
 |
|
|
<% While ((Repeat1__numRows <> 0) AND (NOT rsNav.EOF))%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsNav.MoveNext()
Wend
%>
|
|
|
|
|
|
| <%
rsNav.Close()
Set rsNav = Nothing
%>
| Home
» " class="box1"><%= UCase((rsCat.Fields.Item("CAT_NAME").Value)) %> (<%=(rsCat.Fields.Item("LINK_COUNT").Value)%>) » &subid=<%=(rsSub.Fields.Item("SUB_ID").Value)%>" class="box1"><%= (rsSub.Fields.Item("SUB_NAME").Value) %> (<%=(rsSub.Fields.Item("LINK_COUNT").Value)%>) |
|
| |
|
<%
While ((Repeat8__numRows <> 0) AND (NOT SmallBanner.EOF))
%>
| |
 |
<%
Repeat8__index=Repeat8__index+1
Repeat8__numRows=Repeat8__numRows-1
SmallBanner.MoveNext()
Wend
%>
|
|
|
|
|
| |
<%
While ((Repeat8__numRows <> 0) AND (NOT SmallBanner.EOF))
%>
|
<%
Repeat8__index=Repeat8__index+1
Repeat8__numRows=Repeat8__numRows-1
SmallBanner.MoveNext()
Wend
%>
|
|
|
|
|
|
|
<% If Not rsFeat.EOF Or Not rsFeat.BOF Then %>
|
|
|
&subid=<%=rsFeat.Fields.Item("sub_ID").Value %>" class="box1">All
|
<%
delimiter = "|"
Dim tfm_RegExp
Set tfm_RegExp = New RegExp
tfm_RegExp.Pattern = "nav_letter=\w{1}"
tfm_RegExp.IgnoreCase = True
For i = 65 to 90
TFM_character = Chr(i)
if(TFM_character = Begin_navLetter) Then Response.Write("")
if(InStr(MM_moveFirst,"nav_letter=")<> 0) Then
MM_moveFirst = tfm_RegExp.Replace(MM_moveFirst,"nav_letter=" & TFM_character)
Else
MM_moveFirst = MM_moveFirst & "&nav_letter=" & TFM_character
End If
Response.Write("" + TFM_character + "")
If(TFM_character = Begin_navLetter) Then Response.Write("")
If(i<90)Then Response.Write(delimiter)
Next
%>
Business:
<%=(rsFeat_first)%> to <%=(rsFeat_last)%> of <%=(rsFeat_total)%>
|
|
|
| |
<% If Not rsFeat.EOF Or Not rsFeat.BOF Then %>
<%
While ((RepeatFeat__numRows <> 0) AND (NOT rsFeat.EOF))
%>
" class="box1"><%=(rsFeat.Fields.Item("LINK_NAME").Value)%>
<% If rsFeat.Fields.Item("LINK_DATE").Value > Date() - 30 Then %>
<% End If %>
|
<%=(rsFeat.Fields.Item("LINK_CITY").Value)%> |
<%=(rsFeat.Fields.Item("LINK_STATE").Value)%> |
<%=(rsFeat.Fields.Item("LINK_ZIP").Value)%> |
|
|
<%
RepeatFeat__index=RepeatFeat__index+1
RepeatFeat__numRows=RepeatFeat__numRows-1
rsFeat.MoveNext()
Wend
%>
<% End If ' end Not rsFeat.EOF Or NOT rsFeat.BOF %>
<% If MM_offset <> 0 Then %>
<% End If ' end MM_offset <> 0 %>
|
<% If MM_offset <> 0 Then %>
<% End If ' end MM_offset <> 0 %>
|
|
<% If Not MM_atTotal Then %>
<% End If ' end Not MM_atTotal %>
|
<% If Not MM_atTotal Then %>
<% End If ' end Not MM_atTotal %>
|
|
|
|
| |
<% End If ' end Not rsFeat.EOF Or NOT rsFeat.BOF %>
<% If rsFeat.EOF And rsFeat.BOF Then %>
No Business Found!
|
Recommend a Business
If you know of a business that you think should be included
in The VIP Card Merchant Directory, send us an email and let
us know their details or
click here.
If you are a business owner/manager and you would like your
business to appear in our Merchant Directory please send us
an email telling us about your business or
click here. |
While we are working hard to add business in your area, choose
from one
of these well-known online
merchants, with discount and specials just for you.
|
  |
 |
|
|
|
|
|
|
|
| |
| |
| |
| |
|
  |
| |
| |
|
 |
| |
| |
|
 |
| |
|
 |
| |
|
 |
| |
|
 |
| |
|
  |
| |
|
 |
| |
|
 |
| |
|
  |
| |
|
 |
| |
|
 |
| |
| |
|
 |
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
|
«Back
<% End If ' end rsFeat.EOF And rsFeat.BOF %>
|
|
| |
The design and
illustration of the VIP Cards
represented on this Web site are being
used as
presentation to the prospective company;
no endorsement and/or agreement has been
made.
All logos and trademarks contained
within these design ideas are property
of their respective owners.
|
|
|
|
|
<%
rsUser.Close()
Set rsUser = Nothing
%>
<%
rsKeywords.Close()
Set rsKeywords = Nothing
%>
<%
SmallBanner.Close()
Set SmallBanner = Nothing
%>
<%
rsSub.Close()
%><%
rsCat.Close()
%><%
rsFeat.Close()
%><%
rsLink.Close()
%> |
Quick
Search:
Log In
<%else%>
